﻿Imports System
Imports System.Collections

Public Class DataIndexBE
#Region "Campos y Propiedades"
    Private _IdDocumento As Integer
    Private _IdTitulo As String

    Public Property IdDocumento() As Integer
        Get
            Return _IdDocumento
        End Get
        Set(ByVal value As Integer)
            _IdDocumento = value
        End Set
    End Property

    Public Property IdTitulo() As String
        Get
            Return _IdTitulo
        End Get
        Set(ByVal value As String)
            _IdTitulo = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdDocumento As Integer, ByVal IdTitulo As String)
        Me._IdDocumento = IdDocumento
        Me._IdTitulo = IdTitulo
    End Sub
#End Region
End Class

Public Class DataIndexBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As DataIndexBE
        Get
            Return CType(List(index), DataIndexBE)
        End Get
        Set(ByVal value As DataIndexBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As DataIndexBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As DataIndexBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As DataIndexBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As DataIndexBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As DataIndexBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class

